home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol074 / fusr122b.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-14  |  2.0 KB  |  69 lines
  1. 1000  DEFINT A-Z
  2. 1010  ON ERROR GOTO 1940
  3. 1020  CLS
  4. 1040  LOCATE 2,20
  5. 1050  PRINT "RBBS 12.2B INSTALLATION"
  6. 1060  LOCATE 4,5
  7. 1070  PRINT "This program converts RBBS version 12.2A user files to version 12.2B."
  8. 1080  LOCATE 6,5
  9. 1090  PRINT "RUN this program just ONCE.  You are READY to convert IF"
  10. 1100  LOCATE 8,10
  11. 1110  PRINT "1.  The DEFAULT drive HAS the 12.2A USERS file on it."
  12. 1140  GOSUB 1890
  13. 1150  CLS
  14. 1420  PRINT "Setting up conversion..."
  15. 1425  USERS$="USERS"
  16. 1427  USERS.BAK$=USERS$+".BAK"
  17. 1430  KILL USERS.BAK$
  18. 1440  PRINT
  19. 1450  PRINT "OLD version of users file will be kept as ";USERS.BAK$
  20. 1460  PRINT
  21. 1470  PRINT "CPC12.2A to CPC12.2B USERS file conversion processing started at "+TIME$
  22. 1480  NAME USERS$ AS USERS.BAK$
  23. 1490  Q = 0
  24. 1500  CLOSE
  25. 1510  OPEN "R",2,USERS$,128
  26. 1520  FIELD 2,31 AS N$,15 AS PW$,2 AS SL$,14 AS OP$,24 AS CS$,19 AS MA$,14 AS TD$,3 AS LND$,2 AS UDL$,2 AS UUL$,2 AS ET$
  27. 1530  OPEN "R",1,USERS.BAK$,128
  28. 1540  FIELD 1,31 AS OLD.N$,15 AS OLD.PW$,2 AS OLD.SL$,14 AS OLD.OP$,24 AS OLD.CS$,20 AS OLD.MA$,14 AS OLD.TD$,3 AS OLD.LND$,2 AS OLD.UDL$,2 AS OLD.UUL$
  29. 1550  A! = LOF( 1 ) / 128
  30. 1560  IREAD=0
  31. 1570  IWRITE=0
  32. 1600  NPURGE = 0
  33. 1610  FOR J = 1 TO A!
  34. 1620    GET 1,J
  35. 1630  IREAD=IREAD+1
  36. 1640  LOCATE 6,5:PRINT "Processing CPC12.2A USERS record #",IREAD
  37. 1650    IF ASC( OLD.N$ ) = 0 THEN NPURGE = NPURGE + 1 : GOTO 1800
  38. 1670    LSET N$ = OLD.N$
  39. 1680    LSET PW$ = OLD.PW$
  40. 1690    LSET SL$ = OLD.SL$
  41. 1700    LSET OP$ = OLD.OP$
  42. 1710    LSET CS$ = OLD.CS$
  43. 1720    LSET MA$ = OLD.MA$
  44. 1730    LSET TD$ = OLD.TD$
  45. 1740    LSET LND$ = OLD.LND$
  46. 1750    LSET UDL$ = OLD.UDL$
  47. 1760    LSET UUL$ = OLD.UUL$
  48. 1765    LSET ET$ = MKI$(0)
  49. 1770    PUT 2
  50. 1780  IWRITE=IWRITE+1
  51. 1790  LOCATE 7,5:PRINT "Processing CPC12.2B USERS record #",IWRITE
  52. 1800  NEXT
  53. 1810  CLOSE
  54. 1820  PRINT "CPC12.2A to CPC12.2B USERS file conversion processing ended at "+TIME$
  55. 1830  PRINT
  56. 1840  PRINT
  57. 1850  PRINT "NUMBER of users PURGED .................. ";NPURGE
  58. 1880  SYSTEM
  59. 1890  PRINT
  60. 1900  INPUT "A)bort or C)ontinue... (A,C)";A$
  61. 1910  IF A$ = "c" OR A$ = "C" THEN RETURN
  62. 1920  IF A$ = "a" OR A$ = "A" THEN SYSTEM
  63. 1930  GOTO 1900
  64. 1940  ' Error handling routines
  65. 1970  IF ERL= 1430 AND ERR = 53 THEN RESUME 1440
  66. 1980  IF ERL= 1480 AND ERR = 53 THEN PRINT USERS$+" not found!":GOTO 2000
  67. 1990  PRINT "Error "; ERR ;" on line "; ERL
  68. 2000  SYSTEM
  69.